Public Class EInasistencia
    Private mFecha As Date
    Public Property fecha() As Date
        Get
            Return mFecha
        End Get
        Set(ByVal value As Date)
            mFecha = value
        End Set
    End Property

    Private mtipo As Decimal
    Public Property tipo() As Decimal
        Get
            Return mtipo
        End Get
        Set(ByVal value As Decimal)
            mtipo = value
        End Set
    End Property
    Private mtrimestre As Integer
    Public Property trimestre() As Decimal
        Get
            Return mtrimestre
        End Get
        Set(ByVal value As Decimal)
            mtrimestre = value
        End Set
    End Property
    Private mciclo As Integer
    Public Property ciclo() As Decimal
        Get
            Return mciclo
        End Get
        Set(ByVal value As Decimal)
            mciclo = value
        End Set
    End Property

    Public Sub New()
        mFecha = "01/01/1900"
        mtipo = 0
        mtrimestre = 0
        mciclo = 0
    End Sub

End Class
